home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / MAKEDIR.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  332b  |  21 lines
  1. '$INCLUDE: 'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION MakeSub% (DirName$)
  5.   
  6.     w% = FileCreate%(DirName$, &H10, hDirName%)
  7.   
  8.     IF w% THEN
  9.         MakeSub% = 1
  10.     ELSE
  11.         w% = FileClose%(hDirName%)
  12.         IF w% THEN
  13.             PRINT "QBTOOLS/2 Internal Error: FileClose%"
  14.             END
  15.         END IF
  16.         MakeSub% = 0
  17.     END IF
  18.  
  19. END FUNCTION
  20.  
  21.